home *** CD-ROM | disk | FTP | other *** search
- (complete 0)
- (message "First, I will install necessary libraries"
- " in you LIBS: directory."
- " They are Cando.library, Candogfx.library and Inovamusic.library."
- " version check will be made."
- )
- (complete 11)
- (copylib
- (prompt "Shall I copy Cando.library ?")
- (help
- (cat "The following library will be copied:\n"
- "Cando.library\n"
- "The Convertor program can't be run without it."
- )
- )
- (confirm)
- (source "libs/cando.library")
- (dest "libs:")
- )
- (complete 22)
- (copylib
- (prompt "Shall I copy Candogfx.library ?")
- (help
- (cat "The following library will be copied:\n"
- "CandoGfx.library\n"
- "The Convertor program can't be run without it."
- )
- )
- (confirm)
- (source "libs/candogfx.library")
- (dest "libs:")
- )
- (complete 33)
- (copylib
- (prompt "Shall I copy Cando.library ?")
- (help
- (cat "The following library will be copied:\n"
- "inovamusic.library\n"
- "The Convertor program can't be run without it."
- )
- )
- (confirm)
- (source "libs/inovamusic.library")
- (dest "libs:")
- )
- (complete 44)
- (if
- (askbool
- (prompt "Do you want me to install Convertor on your Hard Disk? (You can also run it from the disk)")
- (help
- (cat "If you answer yes, I will copy all necessary files to your hard disk"
- " and Convertor.\n"
- "If you answer no, I will quit now, but you will be able to run it from"
- " the disk and install it later."
- )
- )
- (default 1)
- (choices "Install" "Exit")
- )
- (
- (complete 67)
- (set @default-dest
- (tackon
- (askdir
- (prompt "Please select a place where a Convertor directory will be created.")
- (help "If you select Work:, for example, all files will be copied in Work:Convertor.")
- (default @default-dest)
- ) "Convertor"
- )
- )
- (complete 78)
- (makedir @default-dest
- (prompt
- (cat "I will now create the " @default-dest " directory")
- )
- (help (cat "... and I will copy all files there."))
- (infos)
- (confirm)
- )
- (complete 89)
- (copyfiles
- (prompt
- (cat "I will now copy all files from the disk to "
- @default-dest
- )
- )
- (help "You will then be able to run Convertor from there." )
- (source "")
- (dest @default-dest)
- (pattern "~(Install#?|Libs#?|icon#?)")
- (files)
- (infos)
- (optional askuser)
- (confirm)
- )
- (copyfiles
- (prompt "Do you want me to copy the directory icon?")
- (help (cat "Since it is MWB style, you may prefer keep the default icon.\n"
- "In that case, answer No." ))
- (source "icon")
- (dest (pathonly @default-dest))
- (infos)
- (pattern "#?")
- (optional askuser)
- (confirm)
- )
- (complete 100)
- )
- )
-
-